www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/page.asp
<%if pagecount > 0 then response.write("<table width=100% align=center><tr><td align=center style='font-size:12px'>") response.write("共有" & recordcount & "条信息; 每页" & pagesize & "条信息; 当前第" & page & "页/共" & pagecount & "页; ") Spage = page mod PARTSIZE if page > PARTSIZE then if Spage = 0 then Spage = PARTSIZE Spage = page - Spage + 1 else Spage = 1 end if Epage = Spage + PARTSIZE - 1 if Epage > pagecount then Epage = pagecount if page <> 1 then response.write("[<a class='lj' href=""?page=1&"&url&""">首页</a> ") else response.write("[<a >首页</a> ") end if if page <> pagecount then response.write(" <a class='lj' href=""?page=" & pagecount & "&"&url&""">尾页</a>] ") else response.write(" <a >尾页</a>] ") end if if page > 1 then response.write(" [<a class='lj' href=""?page=" & page - 1 & "&"&url&""">上页</a> ") else response.write(" [<a >上页</a> ") end if for i = Spage to Epage next if page < pagecount then response.write(" <a class='lj' href=""?page=" & page + 1 & "&"&url&""">下页</a>]") else response.write(" <a>下页</a>]") end if response.write("</td></tr></table>") end if rs.close set rs=nothing %>